home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Publish / Quark / ZAPPER2.sit / Zapper (version 2).rsrc / STR#_3.txt < prev    next >
Encoding:
Text File  |  1990-11-21  |  240 b   |  8 lines
  1. /setcolortransfer where {pop}
  2.  {/setcolortransfer{systemdict begin settransfer end xppop3}def}ifelse
  3.  
  4. /setcmykcolor where{pop}
  5.  {/setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt
  6.  {pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse
  7.  
  8.